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CED 1 OSRCSXLATE. B32;1 a1 


TE = Default XLATE routine’ 
E ¢ ! Default Xx ATE routine 
— = *v04-000' ' File: XLATE. 832 Edit: JBS1002 
= 
BEGIN 


BASES ESISISS ILS TEST TTT TTT TTP TPCT C Piece erect e iit ici titi iii i iiss. 


!# COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


* 
® 
i 
*® 
® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
if ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ® 
® 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. . 
® 
® 
® 
® 
® 
® 


i DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR —- OF ITS 


BIL 
IS NOT SUPPLIED BY DIGITAL 


I 
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FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 
Default Xlate routine - simply returns the error code 
for invalid subcommand 
ENVIRONMENT: Runs on Vax/Vms 
AUTHOR: Shelly T. Solomon, CREATION DATE: 13-Aug-1982 
MODIFIED BY: 


1-001 = Original. STS 13-Aug-1982 
1-002 - Improve Listing appearance. JBS 20-Jun-1983 


aan 


OWDWNAWVE WN $$ O OONO UE WN O ODNAUES WN SQ OOODNOUESWN“OOONOUSWH— 
ka a a hk tt it kk kk nt a a tt tt ts ts 1 OOOO 
cy 


Sete Be Oe Se Se Ge Fe Ge Se Ge Ge Be Se Se Se Se FHS Oe os Se Oe Ss Ge Ge Se Se Ge Se Se Oe Se Se Oe Se Se Se Oe Se Oe Oe SHES ee Oe oe e* 


BEERS & FANNIN NIA PI NINIPONONPONND 2 2 SO Ss SS 


EDTSKXLATE EDTSXLATE = Default XLATE routine bse ep-1984 7:20:59 VAX=-11 -3 P | 82 
TE obo Declarations : ~$08- 138% 95:0: 22 NT eSvMehA Ast EReckot’ SRCSNLATE. B32;1 te 3 

; 1 9 ! MSBTTL ‘Declarations’ 

; § ¢ 1 | TABLE OF CONTENTS: | 

: a ae seo ROUTINE | 

: 5 0 6 1 EDTSXLATE; LOA 
: § §8 i ' | EMU 
: 60 $38 1 | INCLUDE FILES: 

>: (61 0060 1 | EMU 
eS 61 1 

: 6 o é 1 REQUIRE "EDTSRC:EDTREQ’; LOA 
: 68 6198 i 

: $6 0199 i MACROS: 

: 68 38 NONE 

: 70 0 08 i EQUATED SYMBOLS: 

Ae Be ap 

: rh 0 07 | OWN STORAGE: 

eh tee te 

: 78 0211 1 | EXTERNAL REFERENCES: 

: 79 Oet¢ 1 | 

: 80 0213 1! 

>: Bi 0214 1: 


i im the routine 
| 
} 
| 
| 
| 
| 


-TITLE EDTSXLATE EDTSXLATE - Default XLATE routine 
-IDENT \V04-000\ 


-EXTRN EDTS_INVSUBCOM 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


FS | 
EDTSXLATE EDTSXLATE = Default XLATE routine 16-Sep-1984 02:20:59 VAX-11 Bliss-32 V4.0-74 Pp | 
Oat 0b0 EDTSXLATE = default XLATE command 18-808- 1382 95:30:32 DLEKSVMGRASTERSCEDT SRCSXLATE.832;1 ri ah 
: BS 15 J RSBTTL "EDTSXLATE = default XLATE command’ | 
; §5 i$ 1 GLOBAL ROUTINE EDTSXLATE ( ! Default XLATE command 
3 6 18 1 DESC ! String to be XLATEd 
: 88 Ee Bate | 
: 89 1 1 te | 
; 30 9 ; | FUNCTIONAL DESCRIPTION: 
;- 0204 1! This routine is the default EDT XLATE routine. It is entered 
s 9 0225 1! when the user has not supplied an XLATE routine. It simply 
: 3e 8 $ : returns the error code for invalid subcommand. 
; %6 0 ; ; FORMAL PARAMETERS: 
3 eB 8 » } DESC - Descriptor passed with xlate string (unused) 
: 100 0 é 1 | IMPLICIT INPUTS: 
: 101 0 ti 
: 108 $53¢ | i — 
> 104 0236 1! IMPLICIT OUTPUTS: 
: 105 0237 1! 
; We 8 $$ ; NONE 
3 108 0940 | COMPLETION STATUS: | 
: 110 0949 1: EDT$_INVSUBCOM 
+ 111 0243 1 
: 112 Ogu 1 ! SIDE EFFECTS: 
: 11 0245 1! 
> 114 0246 1! NONE 
: i $58} i 
AY ee, Se ay 
: 119 0251 3 MESSAGES ((INVSUBCOM)); 
; 120 0 32 RETURN (EDT$_INVSUBCOM) ; 
: 121 025 1 END; ' of routine EDTSXLATE 


0000 00000 «ENTRY EDTSXLATE, Save nothing ; 0217 
50 000000006 8F 00 0000 MOVL  #EDTS_INVSUBCOM, RO : 0 3¢ 
04 0000 RET : 025 


; Routine Size: 10 bytes, Routine Base: _EDTSCODE + 0000 


; 138 0254 1 
e. 2 0255 1 !<BLF/PAGE> 


EDTSXLATE EDTSXLATE = Default XLATE routine 18-se Sep-1 VAX-11 Bliss-32_ V4.0-74 
Fbus0b0 EDTSXLATE = default XLATE command ~300 71 38% 95: $2: 3 yr eKSvMeR ASTER: cto «SRC IJXLATE.832;1 
: 138 0387 ! END ! of module EDTSXLATE 

4 : 8 ) ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

; -EDTSCODE 10 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

‘ Library Statistics 

Bee see ee een eae Symbols -------- Pages Processing 

5 File Total iceaed Percent Mapped Time 

; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 1 0 40 00:00.2 

: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:XLATE/OBJ=OBJ$:XLATE MSRC$:XLATE.B32/UPDATE=(ENHS: XLATE) 
3; Size: 10 code + 0 data bytes 

; Run Time 205. 

3 Elapsed Time: 09:93 - 

3; Lines/CPU Min: 4106 

: Lexenes/CPU-Rin; 7607 

3 peety T 15 pages 

3; Compi ation: Complete 
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